home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / C-Communications / (c)c8.d64 / seq creator (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  4KB  |  155 lines
  1. 1 REM SAVE"@0:SEQ CREATOR",8
  2. 5 DIM A$(500)
  3. 10 POKE53280,11:POKE53281,0:PRINT"[147][151]    ";
  4. 20 PRINT"[147][197]NTER THE [198]ILE [206]UMBER THAT YOU WISH     TO CREATE..."
  5. 30 PRINT"[152]1[151] - [215]ELCOME [206]EW [213]SER [198]ILE"
  6. 40 PRINT"[152]2[151] - [215]ELCOME [213]SER [198]ILE"
  7. 50 PRINT"[152]3[151] - [193]DD A [194]ULLETIN [198]ILE"
  8. 60 PRINT"[152]4[151] - [194]ULLETIN [201]NFO [198]ILE"
  9. 70 PRINT"[152]5[151] - [212]HIS [211]YSTEM [198]ILE"
  10. 72 PRINT"[152]6[151] - [195]OMMANDS [204]IST"
  11. 75 PRINT"[152]0[151] - [209]UIT [212]HIS [208]ROGRAM"
  12. 80 PRINT"[206]UMBER -> ";
  13. 81 GETA$:IFA$=""THEN81
  14. 82 IFA$<"0"ORA$>"6"THEN81
  15. 83 PRINTA$:IFA$="0"THENPRINT"  [199]OOD [194]YE...";:END
  16. 90 ONVAL(A$)GOTO91,92,93,94,95,97
  17. 91 F$="WELCOME":GOTO100
  18. 92 F$="INTRO":GOTO100
  19. 93 F$="BULLETIN-":GOSUB1000:GOTO100
  20. 94 F$="BULLETINS":GOTO100
  21. 95 F$="THIS 1":GOTO100
  22. 97 F$="COMMANDS"
  23. 100 OPEN2,8,2,F$+",S,R":CLOSE2:OPEN1,8,15:INPUT#1,A,B$,C,D:CLOSE1
  24. 101 PRINT"[147]"A;"[152]";B$;"[151][146]";C;D
  25. 102 IFA>0THENPRINT"[195]REATING A [206]EW [198]ILE...":A$(1)="":X=1:GOTO210
  26. 103 OPEN2,8,2,F$+",S,R":FORX=1TO1000
  27. 104 INPUT#2,A$(X):S=ST:IFSTHEN106
  28. 105 NEXTX:X=X-3
  29. 106 CLOSE2:M3=0:FORY=1TOX-1:FORW=1TOLEN(A$(Y)):A$=MID$(A$(Y),W,1):IFA$=""THENA$=CHR$(34)
  30. 107 IFA$=CHR$(34)THENPRINTA$;CHR$(20);
  31. 108 PRINTA$;" [146][157][151]";:NEXTW:PRINT" ":M3=M3+1:IFM3>15THENGOSUB500:M3=0
  32. 109 NEXTY
  33. 110 PRINT"[[152][195][151]]ONTINUE  [[152][196][151]]ELETE    [[152][197][151]]DIT [204]INE"
  34. 120 PRINT"[[152][198][151]]ORMAT    [[152][201][151]]NSERT    [[152][204][151]]IST"
  35. 125 PRINT"[[152][210][151]]ETURN TO [205]ENU [[152][211][151]]AVE [205]ESSAGE"
  36. 130 GETA$:IFA$=""THEN130
  37. 140 IFA$="[198]"ORA$="F"THENIFX>0THENPRINT"[147]";:GOTO106
  38. 150 IFA$="[195]"ORA$="C"THEN200
  39. 160 IFA$="[204]"ORA$="L"THENPRINT"[147]";:GOTO300
  40. 170 IFA$="[196]"ORA$="D"THEN400
  41. 175 IFA$="[211]"ORA$="S"THEN900
  42. 176 IFA$="[197]"ORA$="E"THEN1100
  43. 177 IFA$="[210]"ORA$="R"THEN191
  44. 180 IFA$="[201]"ORA$="I"THEN600
  45. 190 GOTO130
  46. 191 PRINT"[147][210]ETURN TO [205]ENU...[193]RE YOU SURE?"
  47. 192 GETA$:IFA$=""THEN192
  48. 193 IFA$="Y"ORA$="[217]"THENPRINT"[217]ES.":FORW=1TO300:NEXTW:GOTO20
  49. 194 IFA$="N"ORA$="[206]"THENPRINT"[206]O.":GOTO110
  50. 195 GOTO192
  51. 200 PRINT"[147][195]ONTINUING [205]ESSAGE AT [204]INE";X
  52. 210 REM
  53. 220 GOSUB680:IFI$=""THENX=X-1:PRINT"[147][212]HIS IS HOW YOUR MESSAGE LOOKS..."+CHR$(13):GOTO800
  54. 230 A$(X-1)=I$:PRINTCHR$(13);:GOTO210
  55. 300 M3=0:FORY=1TOX-1:PRINTY:FORW=1TOLEN(A$(Y)):A$=MID$(A$(Y),W,1)
  56. 301 IFA$=""THENA$=CHR$(34):PRINTA$;CHR$(20);
  57. 302 PRINTA$;" [146][151][157]";:NEXTW:PRINT" "
  58. 310 M3=M3+1:IFM3>10THENGOSUB500:PRINT"[147]";:M3=0
  59. 320 NEXTY
  60. 330 GOTO110
  61. 400 PRINT"[147][215]HICH [204]INE IS TO BE DELETED?"
  62. 410 PRINT"'0' [193]BORTS..."
  63. 420 INPUT"[204]INE [206]UMBER? 0[157][157][157]";LN
  64. 430 IFLN=0THEN110
  65. 435 IFLN<1ORLN>(X-1)THENPRINT"[207]UT OF [210]ANGE...[193]BORTED...":GOTO110
  66. 436 PRINTLN:FORW=1TOLEN(A$(LN)):A$=MID$(A$(LN),W,1)
  67. 437 IFA$=""THENA$=CHR$(34)
  68. 438 PRINTA$;:NEXTW:PRINTCHR$(13);
  69. 441 PRINT"[201]S [212]HIS [212]HE [204]INE TO BE [196]ELETED?"
  70. 442 GETA$:IFA$=""THEN442
  71. 443 IFA$="[217]"ORA$="Y"THENPRINT"[217]ES.":GOTO450
  72. 444 IFA$="[206]"ORA$="N"THENPRINT"[206]O.":FORW=1TO300:NEXTW:GOTO400
  73. 445 GOTO442
  74. 450 IFLN=XTHENA$(X)=" ":X=X-1:GOTO470
  75. 460 FORY=LNTOX-1:A$(Y)=A$(Y+1):NEXTY:X=X-1
  76. 470 PRINTCHR$(13)+"[204]INE [196]ELETED...":GOTO110
  77. 500 PRINT"[208]RESS [210][197][212][213][210][206] TO [195][207][206][212][201][206][213][197]..."
  78. 510 GETA$:IFA$<>CHR$(13)THEN510
  79. 520 RETURN
  80. 600 PRINT"[147][201]NSERT [194][197][198][207][210][197] WHICH [204]INE?"
  81. 610 PRINT"'0' [193]BORTS..."
  82. 620 INPUT"[204]INE [206]UMBER? 0[157][157][157]";LN
  83. 630 IFLN=0THEN110
  84. 640 IFLN<1ORLN>(X-1)THENPRINT"[207]UT OF [210]ANGE...[193]BORTED...":GOTO110
  85. 650 IFLN=XTHENX=X+1:A$(X)=CHR$(160)
  86. 660 FORY=XTOLNSTEP-1:A$(Y+1)=A$(Y):NEXTY
  87. 661 PRINT"[207]K, TYPE LINE, LIMIT IS 38 CHRS"
  88. 662 PRINT">";:GOSUB2000
  89. 663 PRINT">":I$=""
  90. 664 PRINT">";:GOSUB2002
  91. 665 PRINT"[145][145] [146][151][157]";
  92. 670 GOSUB700:IFI$=""THEN672
  93. 671 A$(LN)=I$:PRINTCHR$(13)+"[204]INE [193]DDED":GOTO110
  94. 672 PRINTCHR$(13)+"[193]BORTED":X=X-1
  95. 673 IFLN=X+1THENX=LN:A$(X)=A$(X+1)
  96. 674 FORY=LNTOX:A$(Y)=A$(Y+1):NEXTY:GOTO110
  97. 680 PRINT">":I$=""
  98. 690 PRINT"[145] [146][151][157]";
  99. 700 GETA$:IFA$=""THEN700
  100. 701 A=ASC(A$):IFA>143ANDA<160THEN700
  101. 702 IFA=13ORA=20THEN710
  102. 703 IFA<32ORA>218THEN700
  103. 709 IFLEN(I$)=38ANDA$=CHR$(20)THENPRINT"[157] [146][151][157]";:I$=LEFT$(I$,LEN(I$)-1):GOTO700
  104. 710 IFA$=CHR$(20)ANDLEN(I$)>0THENI$=LEFT$(I$,LEN(I$)-1):PRINT"[157] [146] [151][157][157]";:GOTO700
  105. 711 IFA$=CHR$(20)ANDLEN(I$)=0THEN700
  106. 712 IFA$=CHR$(13)ANDLEN(I$)<38THENPRINT" ";
  107. 713 IFA$=CHR$(13)THEN730
  108. 715 IFLEN(I$)=38THEN700
  109. 718 IFA$=CHR$(34)THENPRINTCHR$(34);CHR$(20);
  110. 719 IFLEN(I$)=37THENPRINTA$;:GOTO722
  111. 720 REM
  112. 721 PRINTA$;" [146][151][157]";
  113. 722 IFA$=CHR$(34)THENA$=""
  114. 723 I$=I$+A$:GOTO700
  115. 730 X=X+1:RETURN
  116. 800 IFX=0THENPRINT" ":GOTO110
  117. 810 GOTO106
  118. 900 PRINT"[147][211]AVE [198]ILE, [193]RE [217]OU [211]URE? ";
  119. 910 GETA$:IFA$=""THEN910
  120. 920 IFA$="Y"ORA$="[217]"THENPRINT"[217]ES.":GOTO940
  121. 930 IFA$="N"ORA$="[206]"THENPRINT"[206]O.":GOTO110
  122. 935 GOTO910
  123. 940 OPEN2,8,2,"@0:"+F$+",S,W"
  124. 945 FORY=1TOX-1
  125. 950 PRINT#2,CHR$(34)+A$(Y)
  126. 955 NEXTY
  127. 960 PRINT#2,CHR$(160):CLOSE2
  128. 970 OPEN1,8,15:INPUT#1,A,B$,C,D:CLOSE1
  129. 971 IFA>0THENPRINTA;"";B$;"[146]";C;D:PRINT"[196]ISK [197]RROR...[210]E-[211]AVING...":GOTO940
  130. 972 PRINT"[205]ESSAGE [211]AVED...":GOTO110
  131. 1000 PRINT"[215]HAT BULLETIN NUMBER WILL THIS"
  132. 1001 PRINT"[194]ULLETIN BE WRITTEN UNDER?"
  133. 1002 INPUT"[206]UMBER";N
  134. 1003 IFN<1ORN>50THENPRINTCHR$(13)+"[201]NVALID [210]ESPONSE (1-50)"+CHR$(13):RUN
  135. 1004 N$=STR$(N):N=LEN(N$)-1:N$=RIGHT$(N$,N):PRINT"[196]ON'T FORGET TO UPDATE THE"
  136. 1005 PRINT"[194]ULLETIN [201]NFO [198]ILE...":F$=F$+N$:RETURN
  137. 1100 PRINT"[147][197]DIT A LINE ON THE [205]ESSAGE."
  138. 1105 PRINT"'0' [193]BORTS..."
  139. 1110 INPUT"[215]HICH [204]INE? 0[157][157][157]";LN
  140. 1111 IFLN=0THEN110
  141. 1112 IFLN<0ORLN>(X-1)THENPRINT"[207]UT OF [210]ANGE...":GOTO1105
  142. 1120 PRINT"[204]INE [206]UMBER"LN"IS [195]URRENTLY..."
  143. 1125 PRINT"([210]ETURN LEAVES [204]INE [213]NTOUCHED.)"
  144. 1130 PRINT"[152]>";:FORW=1TOLEN(A$(LN)):A$=MID$(A$(LN),W,1)
  145. 1140 IFA$=""THENA$=CHR$(34)
  146. 1141 PRINTA$;:NEXTW
  147. 1150 PRINTTAB(39);"<[151]";
  148. 1160 GOSUB680:X=X-1
  149. 1170 IFI$=""THENPRINTCHR$(13)+"[206]O [195]HANGE [205]ADE...":GOTO110
  150. 1180 A$(LN)=I$:PRINTCHR$(13)+"[204]INE HAS BEEN [195]HANGED...":GOTO110
  151. 2000 FORW=1TOLEN(A$(LN-1)):A$=MID$(A$(LN-1),W,1):IFA$=""THENA$=CHR$(34)
  152. 2001 PRINTA$;:NEXTW:PRINTTAB(39);"<";:RETURN
  153. 2002 FORW=1TOLEN(A$(LN+1)):A$=MID$(A$(LN+1),W,1):IFA$=""THENA$=CHR$(34)
  154. 2003 PRINTA$;:NEXTW:PRINTTAB(39);"<";:RETURN
  155.